home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / REPLACE < prev    next >
Text File  |  1994-12-13  |  128b  |  3 lines
  1. REPLACE: procedure;parse arg a,b,c;d=index(a,b);do while d~=0
  2.   a=insert(c,delstr(a,d,length(b)),d-1);d=index(a,b);end;return a
  3.